Option Explicit
Sub P_Sample037()
    Dim myFso As Scripting.FileSystemObject
    Dim myFiles As Scripting.Files
    Dim myFile As Scripting.File
    Set myFso = New Scripting.FileSystemObject
    'wɮ
    Set myFiles = myFso.GetFolder(ThisWorkbook.Path).Files
    For Each myFile In myFiles
    Debug.Print myFile.Name
    Next
    Set myFiles = Nothing	'
    Set myFso = Nothing
End Sub
